training_rc_file   <- '/Users/rtan/terra/CNV_Espresso/result/training_set_w_rc.cnv'
training_rc_df <- read.table(file=training_rc_file,header=TRUE,sep = "\t",row.names = NULL)
head(training_rc_df)

colnames(training_rc_df)
 [1] "CHR"                     "PRED_START"              "PRED_END"                "TYPE"                    "SAMPLE"                 
 [6] "CANOES_RT"               "CLAMMS_RT"               "XHMM_RT"                 "NUM_OVERLAPS_RT"         "RD_PROP_RT"             
[11] "GC"                      "PRED_SIZE"               "MAP"                     "NUM_TARGETS"             "SIZE_LABEL"             
[16] "LABEL_VAL"               "Carriers.inGivenCohort." "RC_Ratio"               

Filter non-value rows

nrow(training_rc_df)
[1] 67499

read count number

rc_mean <- function(row){
  rc_list <- gsub("\\[||\\]|| ","",row$RC_Ratio)
  rc_value <- as.numeric(strsplit(rc_list,split=',')[[1]])
  rc_mean_value <- mean(rc_value)
  return(rc_mean_value)
}
nrow(false_cnv_df)
[1] 10580

LS0tCnRpdGxlOiAiVGhlIGdlbmVyYWwgb3ZlcnZpZXcgb2YgcmVhZCBjb3VudCByYXRpbyBiZXR3ZWVuIFRydWUgYW5kIEZhbHNlIENOVnMiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KYGBge3J9CmxpYnJhcnkoZ2dwbG90MikKdHJhaW5pbmdfcmNfZmlsZSAgIDwtICcvVXNlcnMvcnRhbi90ZXJyYS9DTlZfRXNwcmVzc28vcmVzdWx0L3RyYWluaW5nX3NldF93X3JjLmNudicKdHJhaW5pbmdfcmNfZGYgPC0gcmVhZC50YWJsZShmaWxlPXRyYWluaW5nX3JjX2ZpbGUsaGVhZGVyPVRSVUUsc2VwID0gIlx0Iixyb3cubmFtZXMgPSBOVUxMKQpoZWFkKHRyYWluaW5nX3JjX2RmKQpjb2xuYW1lcyh0cmFpbmluZ19yY19kZikKYGBgCkZpbHRlciBub24tdmFsdWUgcm93cwpgYGB7cn0KbnJvdyh0cmFpbmluZ19yY19kZikKdHJhaW5pbmdfcmNfZGYgPC0gdHJhaW5pbmdfcmNfZGZbd2hpY2godHJhaW5pbmdfcmNfZGYkUkNfUmF0aW8hPSJbTm8gdGFidWxhciBmaWxlXSIpLF0KbnJvdyh0cmFpbmluZ19yY19kZikKYGBgCgpyZWFkIGNvdW50IG51bWJlcgpgYGB7cn0KcmNfbWVhbiA8LSBmdW5jdGlvbihyb3cpewogIHJjX2xpc3QgPC0gZ3N1YigiXFxbfHxcXF18fCAiLCIiLHJvdyRSQ19SYXRpbykKICByY192YWx1ZSA8LSBhcy5udW1lcmljKHN0cnNwbGl0KHJjX2xpc3Qsc3BsaXQ9JywnKVtbMV1dKQogIHJjX21lYW5fdmFsdWUgPC0gbWVhbihyY192YWx1ZSkKICByZXR1cm4ocmNfbWVhbl92YWx1ZSkKfQpgYGAKCmBgYHtyfQpyYy5tZWFuIDwtIG1hdHJpeChOQSxucm93PW5yb3codHJhaW5pbmdfcmNfZGYpLG5jb2w9MSkKZm9yKGkgaW4gMTpucm93KHRyYWluaW5nX3JjX2RmKSl7CiAgcmMubWVhbltpLDFdIDwtIGFzLm51bWVyaWMocmNfbWVhbih0cmFpbmluZ19yY19kZltpLF0pKQp9CnRyYWluaW5nX3Jlc3VsdCA8LSBjYmluZCh0cmFpbmluZ19yY19kZixyYy5tZWFuKQpoZWFkKHRyYWluaW5nX3Jlc3VsdCkKYGBgCmBgYHtyfQpucm93KHRyYWluaW5nX3Jlc3VsdCkKdHJ1ZV9jbnZfZGYgIDwtIHRyYWluaW5nX3Jlc3VsdFt3aGljaCh0cmFpbmluZ19yZXN1bHQkTEFCRUxfVkFMPT0xKSxdCmZhbHNlX2Nudl9kZiA8LSB0cmFpbmluZ19yZXN1bHRbd2hpY2godHJhaW5pbmdfcmVzdWx0JExBQkVMX1ZBTD09MCksXQpucm93KHRydWVfY252X2RmKQpucm93KGZhbHNlX2Nudl9kZikKbnJvdyh0cnVlX2Nudl9kZikrbnJvdyhmYWxzZV9jbnZfZGYpCmZhbHNlX2Nudl9kZlssLWMoMTgpXQp0cnVlX2Nudl9kZlssLWMoMTgpXQpgYGAKYGBge3J9CmYgPC0gZ2dwbG90KHRyYWluaW5nX3Jlc3VsdCxhZXMoeD1UWVBFLHk9cmMubWVhbiwgZmlsbD1hcy5mYWN0b3IoTEFCRUxfVkFMKSkpCmYrZ2VvbV9ib3hwbG90KCkreWxpbShjKDAsMikpK2xhYnMoeD0iQ05WIFR5cGUiLCB5PSJNZWFuIFJlYWQgQ291bnQiKSsKIHNjYWxlX2ZpbGxfZGlzY3JldGUoIG5hbWU9IkxBQkVMIiwgYnJlYWtzPWMoMSwwKSwgbGFiZWxzPWMoIlRydWUiLCJGYWxzZSIpKQpgYGAKCg==